home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / MacMETH 3.2.4 / More Examples / MathLib.MOD < prev    next >
Encoding:
Modula Implementation  |  1996-06-20  |  876 b   |  41 lines  |  [TEXT/MEDT]
  1. IMPLEMENTATION MODULE MathLib; (* H. Seiler, 15.3.89 *) (*$R-*)
  2.  
  3.   (* a sketch of an implementation of Mathlib for the MC68881 co-processor. *)
  4.   (* NOTE: This module can only be compiled with the compiler "Compile20"   *)
  5.  
  6.   IMPORT SYSTEM;
  7.  
  8.   PROCEDURE Sqrt(x: REAL) : REAL;
  9.   BEGIN RETURN SYSTEM.Sqrt(x)
  10.   END Sqrt;
  11.  
  12.   PROCEDURE Exp(x: REAL) : REAL;
  13.   BEGIN RETURN SYSTEM.Exp(x)
  14.   END Exp;
  15.  
  16.   PROCEDURE Ln(x: REAL) : REAL;
  17.   BEGIN RETURN SYSTEM.Ln(x)
  18.   END Ln;
  19.  
  20.   PROCEDURE Sin(x: REAL) : REAL;
  21.   BEGIN RETURN SYSTEM.Sin(x)
  22.   END Sin;
  23.  
  24.   PROCEDURE Cos(x: REAL) : REAL;
  25.   BEGIN RETURN SYSTEM.Cos(x)
  26.   END Cos;
  27.  
  28.   PROCEDURE ArcTan(x: REAL) : REAL;
  29.   BEGIN RETURN SYSTEM.ArcTan(x)
  30.   END ArcTan;
  31.  
  32.   PROCEDURE Real(x: INTEGER) : REAL;
  33.   BEGIN RETURN FLOAT(x)
  34.   END Real;
  35.  
  36.   PROCEDURE Entier(x: REAL) : INTEGER;
  37.   BEGIN RETURN SHORT(SYSTEM.Entier(x))
  38.   END Entier;
  39.  
  40. END MathLib.